Public Class CProduct
    'Dim strSeqID As String
    'Dim intPID As Integer
    'Dim strPname As String
    'Dim strpcode As String
    'Dim strPtype As String
    'Dim strCatCode As String
    'Dim strForm As String
    'Dim strgrade As String
    'Dim strMFGcode As String
    'Dim strCompanyCode As String
    'Dim strGenName As String
    'Dim strPurchasePack As String
    'Dim intPackof As Integer
    'Dim intUOM As Integer
    'Dim intSUOM As Integer
    'Dim strScheduleType As String
    'Dim strSellLoose As String
    'Dim strRemark As String
    'Dim strLocID As String
    'Dim intMinLvl As Integer
    'Dim intMaxLvl As Integer
    'Dim intReorder As Integer
    'Dim intReorderqnty As Integer
    'Dim dblSellPrice As Double
    'Dim dblMaxdiscount As Double
    'Dim blntaxinclusive As Boolean
    'Dim strPreVendor1 As String
    'Dim strPreVendor2 As String
    'Dim strPreVendor3 As String
    'Dim strAction1 As String
    'Dim strAction2 As String
    'Dim strAction3 As String

    ''    Dim strStatus As String
    ''    Dim strLU As String
    ''    Dim intLD As Integer
    ''   Dim intLT As Integer




    'Public Property Prdct_SeqID() As String
    '    Get
    '        Return strSeqID
    '    End Get
    '    Set(ByVal value As String)
    '        strSeqID = CStr(value)
    '    End Set
    'End Property

    'Public Property Prdct_ID() As Integer
    '    Get
    '        Return intPID
    '    End Get
    '    Set(ByVal value As Integer)
    '        intPID = CInt(value)
    '    End Set
    'End Property

    'Public Property Prdct_Name() As String
    '    Get
    '        Return strPname
    '    End Get
    '    Set(ByVal value As String)
    '        strPname = CStr(value)
    '    End Set
    'End Property
    'Public Property Prdct_code() As String
    '    Get
    '        Return strPcode
    '    End Get
    '    Set(ByVal value As String)
    '        strPcode = CStr(value)
    '    End Set
    'End Property
    'Public Property Prdct_Type() As String
    '    Get
    '        Return strPtype
    '    End Get
    '    Set(ByVal value As String)
    '        strPtype = CStr(value)
    '    End Set
    'End Property
    'Public Property Prdct_Category() As String
    '    Get
    '        Return strCatCode
    '    End Get
    '    Set(ByVal value As String)
    '        strCatCode = CStr(value)
    '    End Set
    'End Property

    'Public Property Prdct_Form() As String
    '    Get
    '        Return strForm
    '    End Get
    '    Set(ByVal value As String)
    '        strForm = CStr(value)
    '    End Set
    'End Property
    'Public Property Prdct_Grade() As String
    '    Get
    '        Return strgrade
    '    End Get
    '    Set(ByVal value As String)
    '        strgrade = CStr(value)
    '    End Set
    'End Property
    'Public Property mfctrName() As String
    '    Get
    '        Return strMFGcode
    '    End Get
    '    Set(ByVal value As String)
    '        strMFGcode = CStr(value)
    '    End Set
    'End Property

    'Public Property Companyname() As String
    '    Get
    '        Return strCompanyCode
    '    End Get
    '    Set(ByVal value As String)
    '        strCompanyCode = CStr(value)
    '    End Set
    'End Property
    'Public Property Prdct_GenericName() As String
    '    Get
    '        Return strGenName
    '    End Get
    '    Set(ByVal value As String)
    '        strGenName = CStr(value)
    '    End Set
    'End Property

    'Public Property PurchasePack() As String
    '    Get
    '        Return strPurchasePack
    '    End Get
    '    Set(ByVal value As String)
    '        strPurchasePack = CStr(value)
    '    End Set
    'End Property
    'Public Property PackOf() As Integer
    '    Get
    '        Return intPackof
    '    End Get
    '    Set(ByVal value As Integer)
    '        intPackof = CInt(value)
    '    End Set
    'End Property

    'Public Property UOM() As Integer
    '    Get
    '        Return intUOM
    '    End Get
    '    Set(ByVal value As Integer)
    '        intUOM = CInt(value)
    '    End Set
    'End Property
    'Public Property SellUOM() As Integer
    '    Get
    '        Return intSUOM
    '    End Get
    '    Set(ByVal value As Integer)
    '        intSUOM = CInt(value)
    '    End Set
    'End Property
    'Public Property scheduleType() As String
    '    Get
    '        Return strScheduleType
    '    End Get
    '    Set(ByVal value As String)
    '        strScheduleType = CStr(value)
    '    End Set
    'End Property
    'Public Property SellLoose() As String
    '    Get
    '        Return strSellLoose
    '    End Get
    '    Set(ByVal value As String)
    '        strSellLoose = Cstr(value)
    '    End Set
    'End Property

    'Public Property Prdct_Description() As String
    '    Get
    '        Return strRemark
    '    End Get
    '    Set(ByVal value As String)
    '        strRemark = CStr(value)
    '    End Set
    'End Property

    'Public Property Location() As String
    '    Get
    '        Return strLocID
    '    End Get
    '    Set(ByVal value As String)
    '        strLocID = CStr(value)
    '    End Set
    'End Property


    'Public Property Prdct_Min() As Integer
    '    Get
    '        Return intMinLvl
    '    End Get
    '    Set(ByVal value As Integer)
    '        intMinLvl = value
    '    End Set
    'End Property

    'Public Property Prdct_Max() As Integer
    '    Get
    '        Return intMaxLvl
    '    End Get
    '    Set(ByVal value As Integer)
    '        intMaxLvl = value
    '    End Set
    'End Property
    'Public Property Prdct_ReorderLvl() As Integer
    '    Get
    '        Return intReorder
    '    End Get
    '    Set(ByVal value As Integer)
    '        intReorder = value
    '    End Set
    'End Property

    'Public Property Prdct_ReorderQnty() As Integer
    '    Get
    '        Return intReorderqnty
    '    End Get
    '    Set(ByVal value As Integer)
    '        intReorderqnty = value
    '    End Set
    'End Property

    'Public Property Prdct_SellPrice() As Double
    '    Get
    '        Return dblSellPrice
    '    End Get
    '    Set(ByVal value As Double)
    '        dblSellPrice = value
    '    End Set
    'End Property


    'Public Property Prdct_MaxDiscount() As Double
    '    Get
    '        Return dblMaxdiscount
    '    End Get
    '    Set(ByVal value As Double)
    '        dblMaxdiscount = value
    '    End Set
    'End Property

    'Public Property TaxInclusive() As Boolean
    '    Get
    '        Return blntaxinclusive
    '    End Get
    '    Set(ByVal value As Boolean)
    '        blntaxinclusive = value
    '    End Set
    'End Property



    'Public Property PreVendor1() As String
    '    Get
    '        Return strPreVendor1
    '    End Get
    '    Set(ByVal value As String)
    '        strPreVendor1 = CStr(value)
    '    End Set
    'End Property


    'Public Property Prevendor2() As String
    '    Get
    '        Return strPreVendor2
    '    End Get
    '    Set(ByVal value As String)
    '        strPreVendor2 = CStr(value)
    '    End Set
    'End Property
    'Public Property PreVendor3() As String
    '    Get
    '        Return strPreVendor3
    '    End Get
    '    Set(ByVal value As String)
    '        strPreVendor2 = value
    '    End Set
    'End Property

    'Public Property Action1() As String
    '    Get
    '        Return strAction1
    '    End Get
    '    Set(ByVal value As String)
    '        strAction1 = CStr(value)
    '    End Set
    'End Property


    'Public Property Action2() As String
    '    Get
    '        Return strAction2
    '    End Get
    '    Set(ByVal value As String)
    '        strAction2 = CStr(value)
    '    End Set
    'End Property
    'Public Property Action3() As String
    '    Get
    '        Return strAction3
    '    End Get
    '    Set(ByVal value As String)
    '        strAction3 = value
    '    End Set
    'End Property
End Class
